home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.22 / remdiskdrive / remtrackdisk.p < prev    next >
Text File  |  1995-04-23  |  302b  |  19 lines
  1. PROGRAM laufwerklöschen;
  2. Uses exec;
  3.  
  4. VAR ltask:p_task;
  5.     ende:Boolean;
  6.  
  7. BEGIN
  8.  REPEAT
  9.   lTask:=Findtask('trackdisk.device');
  10.   IF ltask=NIL THEN ende:=TRUE
  11.                ELSE
  12.                 BEGIN
  13.                  ende:=FALSE
  14.                  Remtask(ltask);
  15.                 END;
  16.  UNTIL ende;
  17. END.
  18.  
  19.